(rebuild-mail-abbrevs): FILE defaults to visited file.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 685839f9506ce27ea76094660d462b485c8e68ba..17d4254755233c07453fe8a999aa62840605aeaf 100644 (file)
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -486,7 +486,7 @@ characters which may be a part of the name of a mail alias.")
                    t))))
   (build-mail-abbrevs file))
 
-(defun rebuild-mail-abbrevs (file)
+(defun rebuild-mail-abbrevs (&optional file)
   "Rebuild all the mail aliases from the given file."
   (interactive (list
                (let ((insert-default-directory t)
@@ -497,6 +497,8 @@ characters which may be a part of the name of a mail alias.")
                   default-directory
                   (expand-file-name def default-directory)
                   t))))
+  (if (null file)
+      (setq file buffer-file-name))
   (setq mail-abbrevs nil)
   (build-mail-abbrevs file))